Easy Internet/Internet Training Corporation Easy Internet Rev21 (ITC).ISO/mac/Programs/Anarchie/Scripting/AppleScripts/DropPut Example 1

Text File | 1994-09-08 | 231b | 13 lines

property whereto : "ftp://user:pasword@host/path/"

on open doc
    if doc's class is not list then
        set doc to {doc}
    end if
    repeat with i in doc
        tell application "Anarchie"
            store i url whereto
        end tell
    end repeat
end open